home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
COMAL
/
B-Book Series
/
(k)b3.d64
/
program27
< prev
next >
Wrap
Text File
|
2007-02-28
|
794b
|
35 lines
0010 // PROGRAM 27
0020 //
0030 // COMELY KATE
0040 //
0050 // TO GIVE CURRENCIES OF EEC
0060 //
0070 DIM COUNTRY$ OF 11
0080 PRINT
0090 INPUT "WHAT COUNTRY ? ": COUNTRY$
0100 PRINT
0110 IF COUNTRY$="BELGIUM" THEN
0120 PRINT "BELGIAN FRANC"
0130 ELIF COUNTRY$="BRITAIN" THEN
0140 PRINT "POUND"
0150 ELIF COUNTRY$="DENMARK" THEN
0160 PRINT "KRONA"
0170 ELIF COUNTRY$="FRANCE" THEN
0180 PRINT "FRANC"
0190 ELIF COUNTRY$="GERMANY" THEN
0200 PRINT "DEUTCHMARK"
0210 ELIF COUNTRY$="GREECE" THEN
0220 PRINT "DRACHMA"
0230 ELIF COUNTRY$="IRELAND" THEN
0240 PRINT "PUNT"
0250 ELIF COUNTRY$="ITALY" THEN
0260 PRINT "LIRA"
0270 ELIF COUNTRY$="LUXEMBOURG" THEN
0280 PRINT "FRANC"
0290 ELIF COUNTRY$="NETHERLANDS" THEN
0300 PRINT "GUILDER"
0310 ELSE
0320 PRINT "SORRY! NOT IN EED"
0330 ENDIF
0340 END